home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
xceedzip
/
FRMRESUL.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-04-26
|
3KB
|
70 lines
VERSION 5.00
Begin VB.Form frmResults
BorderStyle = 1 'Fixed Single
Caption = "Operation results"
ClientHeight = 3270
ClientLeft = 45
ClientTop = 330
ClientWidth = 9705
Icon = "frmResults.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3270
ScaleWidth = 9705
StartUpPosition = 1 'CenterOwner
Begin VB.CommandButton cmdOk
Cancel = -1 'True
Caption = "&Close"
Height = 375
Left = 8385
TabIndex = 1
Top = 2790
Width = 1215
End
Begin VB.TextBox txtResults
Height = 2535
Left = 90
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Top = 120
Width = 9495
End
Attribute VB_Name = "frmResults"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'============================================================================
' Description: The frmResults form acts as an operation or event log. It
' lists all file operations, errors and warnings that the
' xZip objects's events provide information on. The window
' is displayed when an operation completes.
'============================================================================
'------------------------------------------------------------------------------------
' Outputs a message in the txtResults corresponding to the current events
' triggered by xZip's operations.
'------------------------------------------------------------------------------------
Public Sub AddMessage(sMessage As String)
txtResults.Text = txtResults.Text & sMessage & vbCrLf
End Sub
'------------------------------------------------------------------------------------
' Return if text box contains at least a message or not
'------------------------------------------------------------------------------------
Public Function HasMessages() As Boolean
End Function
'------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------
Private Sub cmdOk_Click()
Hide
End Sub
'------------------------------------------------------------------------------------
' Prevents the user from typing in the data output textbox without
' having to disable it.
'------------------------------------------------------------------------------------
Private Sub txtResults_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub